home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / entrtnr.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  3.8 KB  |  83 lines
  1. 10  ' The Entertainer
  2. 20  '
  3. 30  ' 3/8/85
  4. 40  ' AnteaterMusic, by Tina Anameier
  5. 50  '
  6. 60  ' Many thanks to Sue Morrow for the sheet music!
  7. 70  '
  8. 80  COLOR 7,0:SCREEN 0,0,0:WIDTH 80:KEY OFF:CLS
  9. 90  COLOR 1:LOCATE 11,1,0:PRINT " The Entertainer ":COLOR 7
  10. 100  FIRST=-1
  11. 110  PLAY "t212l5mno5deco4a3bg3deco3a3bg3deco2a3baa-g2.l48ml"     'intro
  12. 120  FOR X=1 TO 6:PLAY "o1go3bo4dg":NEXT                          'intro cont'd
  13. 130  '
  14. 140  WHILE FIRST                                                  'first verse
  15. 150       READ X,X$
  16. 160        IF X=0 OR X=99 THEN GOSUB 770
  17. 170       FOR C=1 TO X:PLAY X$:NEXT
  18. 180  WEND
  19. 190  IF FINISH THEN 730
  20. 200  '
  21. 210  DATA 1,t244l48mlmb
  22. 220  DATA 1,o3d5d+5
  23. 230  DATA 6,o2co3e,6,o2co4c,4,o2go3co4c,4,o2go3ce,12,o2eo4c,4,o2b-o3ce
  24. 240  DATA 4,o2b-o3co4c,12,o2fo4c,8,o2ao3co4c,6,o2eo4c,2,o2e,5,o2eo4c
  25. 250  DATA 6,o2fo4d,6,o2fo4d+,6,o2go4e,6,o2go4c,4,o3ceo4d,4,o3ceo4e
  26. 260  DATA 6,o2go4e,6,o2go3b,8,o2bo3do4d,8,o3ceo4c,12,o2go4c,12,o2co4c,1,p32
  27. 270  DATA 1,o3d5d+5,6,o2co3e,6,o2co4c,4,o2go3co4c,4,o2go3ce,12,o2eo4c
  28. 280  DATA 4,o2b-o3ce,4,o2b-o3co4c,12,o2fo4c,8,o2ao3co4c,12,o2eo4c
  29. 290  DATA 6,o2e-o3a,6,o2e-o3g,6,o2do3f+,6,o2do3a,4,o2ao3co4c,4,o2ao3co4e
  30. 300  DATA 6,o2f+o4e,6,o2f+o4d,4,o2ao3co4c,4,o2ao3ca,8,o2go3bo4d
  31. 310  DATA 8,o1go3bo4d,8,o1ao3bo4d,6,o1bo3d,6,o1bo3d+
  32. 320  DATA 6,o2co3e,6,o2co4c,4,o2go3co4c,4,o2go3ce,12,o2eo4c,4,o2b-o3ce
  33. 330  DATA 4,o2b-o3co4c,12,o2fo4c,8,o2ao3co4c,6,o2eo4c,2,o2e,5,o2eo4c
  34. 340  DATA 6,o2fo4d,6,o2fo4d+,6,o2go4e,6,o2go4c,4,o3ceo4d,4,o3ceo4e
  35. 350  DATA 6,o2go4e,6,o2go3b,8,o2bo3do4d,8,o3ceo4c,12,o2go4c,12,o2co4c,1,p32
  36. 360  DATA 1,o4c5d5,6,o2co4e,6,o2co4c,4,o3ceo4d,4,o3ceo4e,6,o2b-o4e,6,o2b-o4c
  37. 370  DATA 4,o3ceo4d,4,o3ceo4c,6,o2ao4e,6,o2ao4c,4,o3cfo4d,4,o3cfo4e
  38. 380  DATA 6,o2a-o4e,6,o2a-o4c,4,o3cfo4d,4,o3cfo4c,6,o2go4e,6,o2go4c
  39. 390  DATA 4,o3ceo4d,4,o3ceo4e,6,o2go4e,6,o2go3b,8,o2bo3do4d
  40. 400  DATA 8,o3ceo4c,12,o2go4c,12,o2co4c,99,"",0,""
  41. 410  '
  42. 420  SECOND=-1:REPEAT=0
  43. 430  WHILE SECOND                                                'second verse
  44. 440       READ X,X$
  45. 450        IF X=0 OR X=99 THEN GOSUB 770
  46. 460       FOR C=1 TO X:PLAY X$:NEXT
  47. 470  WEND
  48. 480  '
  49. 490  GOTO 140
  50. 500  '
  51. 510  DATA 1,o4e5f5f+5,12,o3co4g,6,o3eo4a,6,o3eo4g,6,o2bo4g,6,o2bo4e
  52. 520  DATA 4,o3ceo4f,4,o3ceo4f+,12,o2ao4g,4,o3ceo4a,4,o3ceo4g,6,o2go4g
  53. 530  DATA 6,o2go4e,4,o3ceo4c,4,o3ceg,6,o2fo3a,6,o2fo3b,4,o2ao3co4c
  54. 540  DATA 4,o2ao3co4d,6,o2fo4e,6,o2fo4d,4,o2a-o3co4c,4,o2a-o3co4d
  55. 550  DATA 6,o2eo3g,6,o2eo4e,4,o2go3co4f,4,o2go3co4g,4,o2go3co4a,4,o2go3co4g
  56. 560  DATA 1,p42,4,o2go3co4e,4,o2go3co4f,12,o3co4g,6,o3eo4a,6,o3eo4g
  57. 570  DATA 6,o2bo4g,6,o2bo4e,4,o3ceo4f,4,o3ceo4f+,12,o2ao4g,4,o3ceo4a
  58. 580  DATA 4,o3ceo4g,6,o2go4g,2,o2g,5,o2go4g,6,o2e-o4a,6,o2e-o4b-
  59. 590  DATA 6,o2do4b,2,o2d,5,o2do4b,4,o2gbo4b,2,o2g,3,o2gbo4b,6,o2do4b
  60. 600  DATA 6,o2do4a,4,o2ao3co4f+,4,o2ao3co4d,8,o2gbo4g,12,o2fo4g,6,o2eo4g
  61. 610  DATA 6,o2eo4e,6,o2do4f,6,o2do4f+,12,o2co4g,4,o3ceo4a,4,o3ceo4g
  62. 620  DATA 6,o2bo4g,6,o2bo4e,4,o3ceo4f,4,o3ceo4f+,12,o2ao4g,4,o3ceo4a
  63. 630  DATA 4,o3ceo4g,6,o2go4g,6,o2go4e,4,o3ceo4c,4,o3ceg,6,o2fo3a,6,o2fo3b
  64. 640  DATA 4,o2ao3co4c,4,o2ao3co4d,6,o2fo4e,6,o2fo4d,4,o2a-o3co4c,4,o2a-o3co4d
  65. 650  DATA 12,o2eo4c,8,o2go3co4c,4,o2b-o3co4c,4,o2b-o3cg,4,o2b-o3cf+,4,o2b-o3cg
  66. 660  DATA 8,o2fo3co4c,1,p42,4,o2fo3ca,4,o2fo3co4c,2,o4c,3,o2f+o3co4c
  67. 670  DATA 4,o2f+o3ca,1,p42,4,o2f+o3co4c,4,o2f+o3ca
  68. 680  DATA 4,o2go3eg,4,o2go3eo4c,1,o4c,3,o2go3eo4e,4,o2go3eo4g,1,o4g
  69. 690  DATA 3,o2ao3eo4g,4,o2ao3eo4e,1,o4e,3,o2ao3eo4c,4,o2ao3eg
  70. 700  DATA 8,o2do3f+a,1,p42,8,o2do3f+o4c,1,p42,4,o2gbo4e,4,o2gbo4d
  71. 710  DATA 4,o2fbo4d,4,o2fbo4c,8,o2eo3co4c,12,o2go4c,1,o2c5c5,0,""
  72. 720  '
  73. 730  PLAY "mfp1p1"                                               'ending
  74. 740  COLOR 1,0:LOCATE 11,1:PRINT " AnteaterMusic ";:COLOR 7,0:PRINT "    "
  75. 750  FOR X=1 TO 3000:NEXT
  76. 760  CLS:END
  77. 770  '
  78. 780  IF X=99 AND NOT REPEAT THEN RESTORE:REPEAT=-1:RETURN
  79. 790  IF X=99 AND REPEAT THEN RETURN
  80. 800  IF FIRST THEN FIRST=0:RETURN
  81. 810  IF SECOND THEN SECOND=0:RESTORE:FIRST=-1:REPEAT=-1:FINISH=-1:RETURN
  82. 820  '
  83.